home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / Quartex_Substance.lha / Install next >
Text File  |  1980-01-08  |  3KB  |  160 lines
  1. ;****************************
  2.  
  3. ;(set #sub-dir "")            ;sub directory containing data files
  4. (set #readme-file "ReadMe")     ;name of readme file
  5. (set #cleanup "")        ;files to delete after install
  6.  
  7. ;****************************
  8. ;----------------------------
  9. ; checks if given program is installed, if not abort install
  10. ; #program - to check
  11.  
  12. (procedure P_ChkRun
  13.   (if
  14.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  15.     ("")
  16.     (abort
  17.       (cat
  18.     "You must install \"" #program "\" first!\n"
  19.     "It must be accessible via the path.\n"
  20.     "You can find it in the WHDLoad package."
  21.       )
  22.     )
  23.   )
  24. )
  25.  
  26. (procedure P_ChkRun_XFD
  27.   (if
  28.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  29.     ("")
  30.     (abort
  31.       (cat
  32.     "You must install \"" #program "\" first!\n"
  33.     "It must be accessible via the path.\n"
  34.     "You can find it in the XFD package."
  35.       )
  36.     )
  37.   )
  38. )
  39.  
  40. ;----------------------------
  41. ; Wait for inserting disk
  42. ; IN:  #AD_disk - name of disk
  43. ; OUT: -
  44.  
  45. (procedure P_disk
  46.   ;(askdisk
  47.    ; (dest #AD_disk)
  48.     (message ("Ensure the file QUARTEX.SUBSTANCE is available in RAM:"))
  49.     ;(help @askdisk-help)
  50.   ;)
  51. )
  52.  
  53. ;****************************
  54.  
  55. (if
  56.   (exists #readme-file)
  57.   (if
  58.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  59.     ("")
  60.     (run ("SYS:Utilities/More %s" #readme-file))
  61.   )
  62. )
  63.  
  64. (set #program "WHDLoad")
  65. (P_ChkRun)
  66.  
  67. (set #program "xfddecrunch")
  68. (P_ChkRun_XFD)
  69.  
  70. (set @default-dest
  71.   (askdir
  72.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  73.     (help @askdir-help)
  74.     (default @default-dest)
  75.     (disk)
  76.   )
  77. )
  78. (set #dest (tackon @default-dest @app-name))
  79. (if
  80.   (exists #dest)
  81.   (
  82.     (set #choice
  83.       (askbool
  84.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  85.         (default 1)
  86.         (choices "Delete" "Skip")
  87.         (help @askbool-help)
  88.       )
  89.     )
  90.     (if
  91.       (= #choice 1)
  92.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  93.     )
  94.   )
  95. )
  96. (makedir #dest
  97.   (help @makedir-help)
  98.   (infos)
  99. )
  100.  
  101. ;----------------------------
  102.  
  103. (copyfiles
  104.   (help @copyfiles-help)
  105.   (source ("Substance.Slave"))
  106.   (dest #dest)
  107. )
  108.  
  109. (copyfiles
  110.   (help @copyfiles-help)
  111.   (source ("Substance.info"))
  112.   (dest #dest)
  113. )
  114. (if
  115.   (exists #readme-file)
  116.   (copyfiles
  117.     (help @copyfiles-help)
  118.     (source #readme-file)
  119.     (dest #dest)
  120.   )
  121. )
  122. (if
  123.   (exists ("Readme.info"))
  124.   (copyfiles
  125.     (help @copyfiles-help)
  126.     (source ("Readme.info"))
  127.     (dest #dest)
  128.   )
  129. )
  130. ;(if
  131. ;  (= #sub-dir "")
  132. ;  ("")
  133. ;  (
  134. ;    (set #dest (tackon #dest #sub-dir))
  135. ;    (makedir #dest
  136. ;      (help @makedir-help)
  137. ;    )
  138. ;  )
  139. ;)
  140.  
  141. ;----------------------------
  142.  
  143.  
  144. (P_disk)
  145. (if
  146.   (= 0 (run ("xfddecrunch \"RAM:QUARTEX.SUBSTANCE\" \"RAM:QTX.SUB\" >CON:///1000//CLOSE" #dest)))
  147.   ("")
  148.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  149. )
  150. (copyfiles
  151.   (help @copyfiles-help)
  152.   (source ("RAM:QTX.SUB"))
  153.   (dest #dest)
  154. )
  155. ;----------------------------
  156.  
  157. (run ("Delete RAM:QTX.SUB ALL QUIET FORCE" #cleanup))
  158. (run ("Delete RAM:quartex.substance ALL QUIET FORCE" #cleanup))
  159. (exit)
  160.